#! /usr/bin/gforth

require cgi.fs

header
html
  head 
    title ." Sign your user up."  
  ..

  body

  h1 ." Sign up! " .. 
  b ." please input your info below: " type 
    
  
  params dup [if]  
  br ." params:" type 
  br ." user:" 
  params s" user" search_value type
  br ." passwd:" 
  params s" passwd" search_value type
  [else]
  2drop
  [then]

  form 
    action ." signup.fs"     methold ." get"     type

    br ." user" 
    input   kind ." text"    name ." user"       type
    br ." pass" 
    input   kind ." password"    name ." passwd"     type
    br
    input   kind ." reset"    value ." clearn"     type
    input   kind ." submit"    value ." submit"     type
  endform
  

/end
  
bye
